home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 March
/
EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso
/
earcd
/
faq
/
instllrg.lha
/
Installer_Guide
/
Install
/
Install.script
< prev
Wrap
Text File
|
1994-10-16
|
2KB
|
66 lines
; $VER: Install_Installer_Guide 1.1 (16.10.94) by Gérard Cornu ;-)
;
;-- Language specific string definitions --------------------------------------
; ENGLISH -----------------------------
(procedure english (
(set MSG_SPACE "\n\n\nInstalling this nice stuff will use about\n%ld Kilobytes of your hard disk space.")
(set MSG_DESTINATION "Where would you like %s to be installed?\n(%s will be directly copied there)")
(set MSG_COPYING "Going to copy %s to %s.")
(set @abort-button "Get out of here!")
(set MSG_THANKS "Thank you for installing %s!\n\n\n;-)")
))
; FRANÇAIS ----------------------------
; Translation by ;-)
(procedure français (
(set MSG_SPACE "\n\n\nL'installation de cette merveille va utiliser\nenviron %ld Kilo-Octets\nd'espace sur votre disque dur.")
(set MSG_DESTINATION "Où désirez-vous installer %s ?\n(%s y sera copié directement)")
(set MSG_COPYING "Prêt â copier %s vers %s.")
(set @abort-button "Sort d'ici!")
(set MSG_THANKS "Merci d'avoir installé %s!\n\n\n;-)")
))
;------------------------------------------------------------------------------
(if (= @language "english") (english))
(if (= @language "français") (français))
; Choose default tool for guide, depending on user's OS version
(set osversion (/ (getversion) 65536))
(if (>= osversion 39)
(set guide_reader "MultiView")
(set guide_reader "AmigaGuide")
)
(set installed "")
(message (MSG_SPACE (/ (getsize "/Installer.guide") 1024)))
(set dest_dir
(askdir (prompt (MSG_DESTINATION @app-name @app-name))
(help @askdir-help)
(default @default-dest)
(newpath))
)
(set @default-dest dest_dir)
(copyfiles (prompt (MSG_COPYING @app-name @default-dest))
(help @copyfiles-help)
(source "/Installer.Guide")
(dest dest_dir)
(infos)
)
(if (exists (tackon @default-dest "Installer.guide.info") (noreq))
(
(tooltype (dest (tackon @default-dest "Installer.guide"))
(noposition) (setdefaulttool guide_reader))
(set installed "YES")
)
)
(if (= installed "YES")
(exit (MSG_THANKS @app-name))
(exit)
)